home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 27 (1992-03)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 27 (1992-03)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / Programming / Basic_Tutorial_8 / Basic-Dos.bas < prev    next >
BASIC Source File  |  1992-03-30  |  596b  |  37 lines
  1.  
  2. LIBRARY "dos.library"
  3. DECLARE FUNCTION xOpen& LIBRARY
  4. DECLARE FUNCTION Execute& LIBRARY
  5.  
  6. again:
  7. PRINT CHR$(12):b=1
  8. LINE INPUT "Basic-CLI >:";c$
  9. IF c$="" THEN SYSTEM
  10. OUT$="RAM:CLI_Out"+CHR$(0)
  11. c$=c$+CHR$(0)
  12. c&=xOpen&(SADD(OUT$),1006)
  13. e&=Execute&(SADD(c$),0,c&)
  14. xClose(c&)
  15. FOR t=1 TO 2000:NEXT t
  16. OPEN "I",#1,"RAM:CLI_Out"
  17. WHILE NOT EOF(1)
  18. LINE INPUT #1,i$
  19. PRINT i$
  20. b=b+1
  21. IF b=21 THEN
  22. COLOR 2,0
  23. INPUT "PRESS RETURN TO CONTINUE",dum$
  24. COLOR 1,0
  25. b=1
  26. END IF
  27. WEND
  28. CLOSE #1
  29. COLOR 3,0
  30. PRINT "      END OF FILE       "
  31. COLOR 2,0
  32. INPUT "PRESS RETURN TO CONTINUE",dum$
  33. COLOR 1,0
  34. GOTO again
  35. LIBRARY CLOSE
  36. END
  37.